home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 9 / CDACTUAL9.iso / share / Dos / VARIOS / pascal / DIRS.SWG / 0004_"Touching" Files in a DIR.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-02-21  |  619 b   |  38 lines
  1.  
  2. Program TouchDir;
  3.  
  4. Uses Dos;
  5.  
  6. Var S:SearchRec;
  7.      F:Text;
  8.      H,M,S,Hund:Word;
  9.      DOW,Year,Month,Day:Word;
  10.      FTime:LongInt;
  11.      DT:DateTime;
  12.      Dir:String;
  13.  
  14. Begin
  15.  If ParamCount = 0 Then
  16.  Begin
  17.   Writeln('Usage: TOUCHDIR <dirname>');
  18.   Halt;
  19.  End;
  20.  FindFirst(Dir,Directory,S);
  21.  If DosError = 0 Then
  22.  Begin
  23.   Assign(F,Dir);
  24.   GetTime(H,M,S,Hund);
  25.   GetDate(Year,Month,Day,DOW);
  26.   DT.Hour:=H;
  27.   DT.Min:=M;
  28.   DT.Sec:=S;
  29.   DT.Year:=Year;  
  30.   DT.Month:=Month;
  31.   DT.Day:=Day;
  32.   PackTime(DT,FTime);
  33.   SetFTime(F,FTime);
  34.   Writeln('Touched the ',Dir,' directory.');
  35.  End
  36. End.
  37.  
  38.